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VAL - A Value-Oriented Algorithmic Language 

1. INTRODUCTION 

The programming language VAL (Value-Oriented Algorithmic Language) is designed for 
expressing algorithms for execution on computers capable of highly concurrent operation. More 
specifically, the application area to be supported is numerical computation which strains the limits 
of high performance machines, and the primary targets for translation of VAL programs are data 
driven machines of the form under development by the Computation Structures Group of the MIT 
Laboratory for Computer Science for high performance numerical computation. 

Nevertheless, it has been our intention that the language not have idiosyncrasies reflecting the 
particular nature of the application area or target machine. It should be reasonable for VAL to 
evolve into a general purpose language appropriate for writing programs to run on future general 
purpose data flow computers. 

In the design of VAL we have given careful consideration to the recently developed body of 
knowledge about program structures and language characteristics which support program 
verification. We have found a natural consistency between language design for support of 
concurrency and language design for correctness and verifiability. This has made it possible, in the 
design of VAL, to adhere to program structures and language characteristics that have been found 
desirable for ease of understanding and verification, and ease of building a program by combining 
separately specified modules. 

We have undertaken the design of a new language because existing languages for numerical 
computation have a serious deficiency: they reflect the storage structure of the von Neumann 
concept of computer organization in that each language has some method of effecting a change in 
state of the memory which cannot be modeled as a local effect Fortran, still the most popular 
language for large scale numerical work, is particularly blatant in this respect since it was concaived 
as a high level notation for programs to be run on a machine of classical design (the IBM 704). 

Key words: programming languages, applicative programming, modularity 
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The difficulty with languages that aUow specification of global state changes is that programs 

a 

may be written wJrich are very dirflcwtt or impossible to analyze for parts that may he executed 
concurrently. It is impossible In feneral to trace the flow of data with less than a complete analysis 
of the entire program. Omy wtm wen analysts Is * posUMe to And awd ehmmate inessential 
constraints on the sequencing of program puts. 

In contrast, the language VAL is entirely free of side effects: each module or wdt formed 
portion of a VAL program corresponds to a mathematical function and the entire effect of putting 
two parts together is to compose die corresponding functions. Such a language i* Junctional or 
applicative. Although designs tor applicative languages have been discussed many times in Hie 
literature, there have been few attempts to construct a complete and practical definition. This is 
due to the difficulty of Inc orpor at ing file updates and inputfoutout operations wtthm Hte 
applicative framework, and the question of efficiency oMinpkmtntHlon. The efficiency issue is 
countered in VAL by our goal of h^hly parallel execution, which is sup por t e d by applicative 
languages, and our aim to develop computer afdritectwes specificalty for efficient executi on of 
programs expressed in functi onal languages. 

The fUe update and inpntfeutput issues wM be addressed in suture versions of VAL in which 
streams of values wffl be mtreduced as a prmdpal means for c omm un icating b etween program 
modules. Modules that produce streams as output or accept streams as Injwt can be used for 
input/output processes. Further, the impl e me n ta tion of transactions on a data base may be viewed 
as the processing of a stream of commands by a data base "secretary" or "guardian" module that 
holds Hie data base as internal data. If it is desired to realize mora concurrency in processing 
transactions, the data base may be divided into parts, each wtth iU own secretary module. 

In developing the structure of VAL, it was natural for us to start from a language design 
which is of high Quality, is well documented, and is close in spirit to our goals. Such a language is 
CLU {I, 21 developed at MIT by the P rogram mi n g Methodology Group under Professor Barbara 
Liskov. In particular, CLU is designed for complete compile time type cheeking, and it has a set of 
well thought-out control structures and bask data types consonant with modern principles of 
structured pr ogramming. 
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While we have adopted many of the fundamental ideal of CLU, VAL differs radically from 
CLU In that the Utter, like many new b^uafei, i* obje« ort«it«d bixttad of rakie ortenttd. In 
keeping with this difference, the syntax and general structure of VAL are designed to reflect the 
functional character of the language and our desire to support highly concurrent program 
execution. 

1.1 Acknowledgements 

Current work on the development of VAL is funded by a grant from the Lawrence Livermore 
Laboratory of the University of Cajtfarnia &M& 1^*it*4hit>kftil to Gus Dorgugh, George 
Michael and LansingfSloan of LLL for their enthusiasm ae* support 

Several people have worked with m during the period of design of VAL, and nave rriade 
major contributions to the language and this report: they are James McGraw *nd .-^BIssHies 
Wetherell of LLL, and Dean Brock and Ken Weng of the MIT Computation Structures Group. 
James McGraw also produced the Syntax charts appearing at the end of this report Others have 
influenced the development of VAL by suggesting features or requirements, and through their 
criticism of our documentation. These are Chris Hendrickson and Tim Rudy of LLL, and Andy 
Boughton. Randal Bryant, Clement Leung, Lynn Monti, and David Hirschman of the 
Computation Structures Group. 

The ideas in the language grew out of our gradual self-education about data driven 
computation beginning around 1967. The students and staff of the Computation Structures. Group 
who have contributed ideas include Earl van Horn, Peter Denning, Fred Luconi, Suhas Patit Jorge 
Rodriguez. Chander Ramchandani, John Fosseen. Prakash Hebalkar, Jeffrey Gertz, Austin 
Henderson, Steve Ziltes, Craig Schaffert, Eliot Moss, James Rumbaugh, David Misunas, David 
Isaman, Paul Kosinski, David EMS, Sheldon Borkm, and Glen Miranker. 

We thank the National Science Foundation for their continuing support, and acknowledge 
With appreciation the long period of support provided by the Advanced Research Projects Agency 
of the Department of Defense. 
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Z LANGUAGE SUMMARY 

A program in VAL is a collection of separately translated parts called modules. Eacti module 
contains the definition of one external function. This function b accessible to all other modules of 
the VAL program by use of its name. A module may also contain the definitions of internal 
functions. These internal functions are used only within the module, and are not accessible to other 
modules. 

The VAL language is applicative, that is, value-oriented. In contrast to many other 
languages, there are no "objects" thought of as residing in memory and being updated as the 
computation progresses. Even arrays and records are treated in VAL as mathematical values. 

A function computes one or more data values as a function of one or more argument values. 
Except for invocations of other functions, a function invocation has access only to its arguments; 
there are no side effects. Further, a function retains no. state information from one invocation to 
another; each function invocation is strictly independent Hence values returned by a function 
depend only on the argument values presented to it - a VAL function impl eme nts a true function 

:■■>'(/::■ ': .■■■■■■■'■,.■;■■■■■; ■■■■-'. ;_' ■ . , ■.■: ■■■■,.!■■■■ . ■ .■,-.-■ 

in the mathematical sense. 

The data types of VAL include the basic scalar types: boolean. Integer, real, and character. 
Data structure values are either record values or array values. Records have a fixed format in 
which each field has a specified type. An array type has an integer index set and its components 
are of arbitrary but uniform type. Data structures of arbitrary depth may be specified using nested 
array and record types. Union types may be formed in which tags allow discrimination among a 
specified set of constituent types. 

Each data type has its associated set of operations and predicates. Array and record types are 
treated as mathematical sets of values - just as the boolean, integer, real, and character types. The 
operations for arrays and records are chosen to support identification of concurrency for execution 
on a highly parallel processor. 
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Exceptiom are handled in VAL through special error e hiiwnu in each data type. The 
element undef signals that one or more operand values are not in the specified domain of an 
operation The element nties jWl signets that an array component tt abaent Other ewer eta ns ft tt 
ate provided in the numeric types to indicate arithiMtfc esxeptfems. 

The design of VAL permits type checking to be pwlwwed by the transistor. The type of 
each argument or result vahw of a function is specified in the function definition's header. Each 
value name used in the body of a function must have its data type specified. The operations of 
VAL are designed so that the types of the resells can be determined if the types of the operands are 
known. Since ifce types of afl atomic exp i esston ate mannest, the types of all e xpressi o ns *an be 
determined. 

Since VAL is a side-effect free language, s u bex press ions may be evaluated in any order 
without effect on co mput ed results. Thus the central stntctures of VAL •■« aip«a«ttc form -an 
expression - evaluation of which yields a tupfc rf vahm. Language c o nstructs are pr o vi d ed for 
conditional expressions flf fthon/ol ao), mod for iteration expressions (for/ftor), the latter being a 
scheme for repr e senti ng iterations as tail recurskm m addition, expression structures are provided 
for distributed computation of the compon e nts of a new array or of values to be corabmed by an 
operator. A forajl/cortatnict expression is used to compute the co m pone nt values of a new array 
simultaneously A feronToval expression corrtbmes stmuaaiieuMiy computed values by an 
associative operation such as addition, rmdtipikatton, or maximum. 



In the BNF presentation of the syntax, large curly braces {..} indicate tero or snore 
repetitions of the material within. Larje brackets [ . . . ] indicate that the material within may 
appear jestd times or once. 
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a PROGRAM FORMAT 

Programs are written using the ASCII character set No "control" characters other than tab 
and newline are used, except in character constants. The program elements are operation and 
punctuation symbols, real and integer numbers, character strings, reserved words, and names. 

The operation and punctuation symbols are the foRowing: 

+ -*/!& 

II < > <« >- - 

~« := : . ; , 

< ) I } ' " 

An integer number is a sequence of digits without a decimal point A real number is a 
sequence of digits with either a decimal point or an exponent field. An exponent field is the letter 
"E"orV, an optional sign, and one or more digits. 

A character constant is a single character enclosed in single quotes. A character string 
constant is a string of zero or more characters enclosed in double quotes. Within each of these, 
tabulate - space, newline, percent, and all control character* represent themselves. A double quote 
may be placed in a string by using two double quote characters. 

A reserved word is a word that always has a special meaning. Reserved words may never be 
us< *U n * n y ******* for .. a *?f. *han theh; special meaning . Reserved words In program examples 
and in the syntax are printed in boidfaco in this report 

« 

The reserved words are 

aba do if over 

and dee in phja 

arithjarror elseif • integer poe„over 

arrey endsJI ia poajwider 

array_addh endfor iter real 

arrey.eddi endfun let record 



9 



array jnd|ti»t 


endif 


array_««p*y 


endtter 


array_flll 


ondtot 


arrayjejtt 


«*»*» 


•ITBJfiJOWw." 


' r .4', -'*'■-' 

ojswa^ 


arrayjiaw 


aval 


arrayjremh 


expt 


atTayjrewfc 


external 


array_sett 


false 


errey._itee 


for 


boolean 


foreH 


char act or 


function 


construct 





max 



return* 
ttg 



neginpefi' 



nH 
nuH 



timet 
true 
type 
undef 



of 
otherwise 



zero.dvide 



A name is a sequence of tetters digits, and ufidw-scorw, of which the first character rmwt be a 
letter. A name may not be the same as a reserved word. A name may be used as a value name, a 
function name, a defined type name, a record ftaki nwne, or a oneo* tag name. These uses aft 
hive their own mechanisms for interpretation, andiience a name imay be usedSrtthoot conflict for 
several of these purposes, for exampkv a record flekf name occurs orrty in a record type 
specification or recant oc<efolto%and*fieaw ; w»1«^ 



Upper and lower case fetters in names and reserved words are not distinguished, but all uses 

of a name or reserved word must have consisttimcasl^ 

■■ ■ ,•-• .<■ h : - -■ ■ ■ ■ ■, --■ ■ •■> ••■•' • 
length. 



The separating characters space, tabulate, and newtine are equivalent (except in dehmfttog 
comments), and may appear anywhere except within a program element Hence they may not. 
appear within a number or betwe«i the characters of a two character operation symbol such at >». 
A separating character it required orriy between adjacent constants, names, or reserved words. for 
example, separating characters are required to distinguish the program construct 1l p than 3 oJeat 4 
ondH" from the name *ifpthon3 ote e4 andlf ". Separating characters not required next to operation or 
punctuation symbols. 
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A comment begins with a percent sign and continues to the end of the line. A comment is 

equivalent to a space, and hence may be placed anywhere except within an program element. 

Examples of names and constants: 

ABC3_Q 

34 

.3141593E1 

2.718282 

5772157E-7 

"abc""def" 
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* VALUES AND TYPES 

The Inputs and output* of VAL oqwenJow and functioiu are valwet. The entire CDlleetiow of 
values that may be pmcntK* to er psadocsd 1^ V A^ Th* 

value domain is subdivided into distinct disjoint wthdemimi tint are the data types of VAL. 
There are huic fy/»« which mdurfe the bmifcar icaiir vatoei ef csnifmtition; 5rrN€tur^ f^j hi 
the form of arrays .and weord» is defteed bf the tsafuaae taer to team of simpler data types; and 
discriminated union types. 

4^1 Type Spocificatione 

A type specification m VAL it a iyntattfc construct that specifies* data type, 
Syntax: 
type-spec :*- basfc*type*sptc 

I 

| type-item* 
basic-type-spec ::- mdt | boe4e«i | itrtflftr | real j 
conipouiKt-typf-spec :t- eeny t typ e y e cl 

( record [ fiekHpac | ;ftrid-$p«} J 

| (Kiooi [tag-spec {jt^ripec}] 
field-spec 1 1 - field-name { , ftehHame };: type-spec 
tag-spec :t« tag-name {, tag-name ) [ : type-spec ] 
field-name »t» name 
tag~name t*» name 
type-name m- name 

For a basic type* the spedfUattori ii jimpfy the name of the type. For a compound type, the 
specification consists of a typ* etmstmstar giving the name of the oompound type followed by the 
necessary additional information within bracket*. 
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The array type constructor gives the type of the elements of the array. 

Examples: 

array ( integer ] 
array [ array t real }) 

The record type constructor grva the field nantes and the type asso cia t ed with each fleW. 

The flrid names u«d within any record specification most he distinct Where several fleW n«nes 

are listed with one type, the fields are all of that type ^ 

Examples: 

record [ I, J : integer » temp : real ] 

record ( I : record [ x : array [ boolean ] i Y : character ] » temp : real ] 

A earn? may be used as a field name and as anr other name (but not a reserved word) 
without conflict, since it ii interpreted as a field name only m the record constructor and in record 
operations. The same field name may be used in sevejra>recerd type* without conflict. 

The oneof (union) tyo* constrictor gives th« tagi sik! the type associated with each tag. The 
tag names must be distinct. Where several tag «§ir*fc*«? MajaAjfigt one type, the tags afl indicate 
that type. If the colon and following type ipecifkatto^ w« ornttted, the f»utt type is assumed. 
Examples: 

oneof [ UP, DOWN, LEFT, RIGHT ] 

oneof [ fix : integer t Flo : real ] 

oneof [ this : array [ Integer ] s that, THEjOTHER : record [ C : real j D : boolean J] 

As in the case of field names, a tag name may coincide with any other name without conflict, and 
the same tag name may be used in several union types without conflict 

Any type name used as a type specification must be defined by a type definition (see Section 

4.6V ' ' ' '■■■■,'■': : -^ : - ■■■■**■■■ ~ 
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4.2 Value Domain* 

Each data type is a domain of values as described below. As w»H be seen, each data type 
includes proper elements, and error elements which ©oar as ^mmmk^ : m'4m^malm whin 
computation of a proper value of the type is impossible. Each data type Is further characterized by 
the set of operations that may be used to created ttwwfomvafcM of the trp*. The operations 
for each data type Of VAL are defined hi Section fr as aw conversion oper a t i on s that convert 
values of one type into values of another. 

4.3 Error Values 

The error elements are included to support die unusual treatment of exceptions adopted in 
VAL as discussed in Sections 5 and 7. The fuU name of an error value consists of an error name 
followed by the type specification enclosed In brackets, for exarnpte Z6T0 jdMchjfreall This is 
because every value, tnetadingalt error vafcievm 
zero_di vldefreaf] is a different value from zero jdhtfo^fllrfeferl 

Two error values are members of every data lype: tie element undefttTpe] results when 
operand values are not in the domain of an operator, for example, »f the index of an array access 
operation is outside the range of the array; the element nuf§_eRftvpe] mate if the index of an 
array access operation is within the array range, but no data value exists at that index. 

4.4 Basic Type* 

The Null Tyfu 

proper elements: nil 

error elements: undeftnull J, mi«s_jett£null] 

The null type occurs in a distinguished union (onoof) type where in one or more alternative* 
no data value is required. 



*t\ «*'V^* \ 
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The Boolean Type 

proper elements: true, false 

error elements: uwieffbodean], mlea.eUtbooleenJ 

The Integer Type 

proper elements: The integers between some limits which are 

....; :}i ■-, 

implementation dependent, 
error elements: undefQftteger], roi9«_elt0ntegerl 
po8_over[irrtegerl neg^overflntegerl, 
unknown[integerl,zero_dlvkieOnte|erJ 

The elements po«_over(fnteger] and neg_overflnteger] indicate that the integer value is 

.....:, 1 „, . ~. t • '':'"i ..'.r v j* .. " ■ . " -• * ■■-, ■ -■ *■ ■■ ." -.a . -ii^ - - ■■ -v— 

•-'*»? i' " K <■.-■ '■ " ■." • ' Jj . - - i '^.% .. .5 _f^ ; K 

too large (positive or negative) to be r e pre s e n ted in the impl eme nt ation. The dement 
unknownflnteger] indicates the result of a computation that has exceeded the capacity of the 
implementation, but whose true value is not known to be out of range. The element 
zero_dl vldeflnteger ] indicates the result of a division or modulus operation with zero divisor. 

The RealType 

proper elements: Floating point representations of real numbers 

including zero, with some exponent range which is 

implementation dependent 
error elements: undefCreety mies_elt[reaU 

po«_over[reeU neg_overtreeU 

po«_und«rtro«ll neg_under[roall 

unknownfreaU zerojlviiafre*! 

The elements po8_over[roel] and neg_overfreel] Indicate that the real value is larger 
(positive or negative) than is representabk in the floating point method of the I mpleme n tation. 
Jhe elements pos.umJertreeJ] and neg_under[real] represent non-zero values too small In 
magnitude to be representable in the floating point method of the implementation. The element 
unknowntreaJ] indicates the result of a computation that has exceeded the exponent range of die 
imp l ementation, but whose true value is not known to be out of range The el e m e n t 
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z«ro_di vide[real] indicates the result of an attempted division by aero. 

The Character Type 

proper element* The 128 character j of the ASCII cheracter »et 
error elements: undoncht#t«tor],miat - ejtt{ohejr«et«r3 

4.5 Compound Types 

Array Types 

For each data type defined by some VAL type specification T, an array ry^* may be defined 
by the type specifka*ton arraym 

proper elements: A proper array vaiye in array [T] conjisu of t%w 

<1) A r«nj< <LO, HI) where LO ami HI are integers and 
LO < Hi + 1. These ate inclusive bound* on the defined 
elements, if LO - HI + 1 the array ha* no elements. 

(2> A sequence of HI - LO + 1 elements of type T. 
error elements: Every array type <jriMyft3 tndudes the :&mmt* 
:WilOja^a?^a|iCfft:ind"lilli |«i!ilWhff Ojftll 

Record Types 

If tj, .... t k are VAL type tpectfiatioru and iij, .... n k are distinct names, then 
rocord[ nj : t t 5.. .-.r^ :t K Jspectflesarecord type. 

proper elements: Each proper value of the record type is a set of k pairs 

{<nj, V|), . . . , (n k , y^)} where each Vj is an element of tj. 
error elements: undoftTX miee_«lt[T], whem T to die wcprd type 
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Union Types 

m Each element of a union type is an element of one of seven! tonittttMnt types, accompanied by 
* tag which indicates the const it ue n t type from which the ete m e nt was taken. If tj, . < . > ** *« type 
ipecificaiiont, and n|, . . . , n^ are distinct name* then anaof | n t j tj ;. .. yr^i t^ ] specifies a 
unton type ,■.■.-..■••■<' :r 

proper elements: Each pfopareleaMnti^'the«nim^^^Ua pair ^»v^ 
where! <i <kand Vj is an element oftj. 

error elements: undeftT], mlef_e4tlT], where T is the union type 

A.6 Type Definitions 



ft 



Syntax. 

type-def j : * type type-name - type-spec 
type-name :; - name 



A function definition may contain a number of type definitions which specify 
pi^ammer^nimed types used in the function? ;t E*c# rype deflnitton spedfte* that a type name 
eferretes the type represented % the given ^spetnlcitfoii. fhe^ypespeciftotton part of atype 
ctefmltfbn miy contain type names defined Mr th>same"or o^r deBirittom. Recursion land mutual 
reriirsidn are permitted hv type definitions. Such type defmtttom may be used to construct data 
typei composed Of array or retort smictoi^ trfunlirrtted dep^h. 
Example 

type STACK - oneof [ empty : null 5 element r ffctefd fv**» : ¥•** f te*l : STACK]} ; 

The name of a defined type may be used anywhere that a type specification is permitted, e.g. 
as the type parameter for constants such as miaa_eltltype-jpecl 

A name may be used as a type name and as any other kind of name without conflict, since it 
is interpreted as a type name only in well defined contexts. 
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4.7 Equivalence of Typ« Specifications 

Type checking Is performed by the VAL translator by testing that the type of each expression 
or subexpression matdte* the typvij^t^ Tht^^yeai im 

expression or subexpression is determined by its composition from operators and elem en ta ry terms 
as described in Sections 5 and 6. Thirmust match the type required by its context: an argument to 
a function must match the argunus* type indict an expression 

on the right hand side of a deflnmo»*<s«e$ection 7^muttmateh the declared type of the name on 
the left hand side. 

The necessary test is to determine if two type specifications are equivalent, that is, if they 
denote the same type. Two bask type spedfications are equivalent if they are the same Two 
array specifications are equivalent if their element types are equivalent. Two record or oneof 
type specifications are equivalent if then- correqao wd i iigty ■ named componen t types or constituent 
types are equivalent; the order in which they are listed is net significant A defined type name is 
equivalent to the type appearing on the right hand side of its definition. 

A compound type specification can be visualized as a tree whose nodes are labeled array, 
record, or oneof, whose arcs from record or oneof nodes are labeled with field or tag names, 
and whose leaves are basic types. Equivalence -.can be formulattd in tevms of this characterization: 
Two type specifications are equivalent if their trees are identical, disregarding the order of arcs. If 
a type specification uses recursion, this tree is infinite; two such specifications are equivalent if these 
infinite trees are identical. 

Examples .-- assume the following type definitions: 
type num ■ reat -, 

type STACK « oneof [ empty : nuU ; element : ITEM ] j 
type ITEBT * record [ value : real ; rest : STACK I ; 
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Then the following pairs of type specifications are equivalent: 

real (A defined type is exactly equivalent 

NUM to the type that it is defined to be.) 

record [ a : real ; b : integer ] (order of fields is not significant) 

record [ b .- integer ; a : real ] 

oneof [ empty : null ; element : record [ value : real ; rest : STACK ]] ; 
STACK (The (infinite) trees implied by these 

type specifications are equivalent.) 



5. OPERATIONS 

In this section we specify the sets of operations applicable to etch data type of VAL. In the 
examples of notation; Fan* a**"* ft* bootea* ratae* J aiidTC for imegen, X and Y for reals, C 
and D for characters, A and Pttrarta^i, R for records. (T for anion immOf nam, and V for 
values of arbitrary trpe. 

5.1 Error tests 

A number of tests are provided for error dements. The foHowmt; three are defined for aft 

operation notation fuftcttanaHty 



test for undo* iaurtdeffV) any -> bod 

test for ra»ss_tJt itmi«a fc ott<V) any -> boot 

test for all errors is orrorfV) any ■♦ bool 



The test i« error is satisfied by all error values tor the type t* wMefc it is applied: unchjf, 
mies_dt, and any other errors such m zero_dfvk*e that exist far that type Additional error 
tests, such as is over, are defined beta* for certain types. 

AM error test operations always return true or fatso, never an error value. They must be 
used for testing for errors in preference to the equaitty operator (e* "X - ur^rooJT), since the 
tatter returns undertbooiesn] when X is an error value 

5.2 Null operations 

The miH type is used to provide a case in a union type for which the value is Irrelevant 
There are no operattons.for this type except the error test* is undof. la ndoa.eft, and Is orrw. 
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5.3 Boolean operations 



The boolean operations are the following: 



operation 



notation 



functionality 



and 




P&<1 


bool. boo! -» boo! 


or 




PIQ, 


bool. boo! -♦ bool 


not 




*P 


bool -» bool 


equal 




p=a 


bool. bool -» bool 


not equal 




p~=o. 


bool. bool -» bool 


test for undef 




is undeflP) 


bool -»bool 


test for misspelt 




is miss_elt(P) 


bool-* bool 


test for undef or 


misspelt 


is error(P) 


bool-* bool 



If an error value is an operand to a boolean operation other than an error test, the result is 
undeftboolean]. 

5.4 Integer operations 

The integer operations are the following: 



operation 



notation 



functionality 



addition 

subtraction 

multiplication 

division 

modulus 

exponentiation 

negation 



J-K 
J*K 

mocKJ.K) 
expO, K) 
-J 



int,int-» jnt 
int, int -» int 
int, int -» int 
int, int -» int 
int, int -» int. 
int, int -» int 
int -* int 
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magnitude 


«b«0) 


it&-»M 


maximum 


maxO. K) 


l!ltl!«-»titt 


minimum 


fB*ng,K> 


int, int -+ int 


equal 


J=K 


tot, int -» bool 


not equal 


J~«K 


int. tot -» bool 


greater, less 


J>K,J<K 


tot, tot -» bool 


greater/equal, less/equal 


J >= K.J <« K 


int. int -» bool 


test for po8_over 


i8po8_ov«r(J) 


int •♦pool 


test* for r»g_over 


is net©v«f(j) 


tot -» bool 


test for unknown 


is unkno¥m(J) 


tot -> bool 


test for zero_cKvide 


is zoro^di vioo(J) 


int -» bool 


test for pos_overor nefjoyer 


i« ovBrQ) 


fiff^^L ^ ■ ""^^H^H^ft^.-^' 


test for pos jover, nogjover, 


la •rHftjBfTor(J) 


int-* bool 


unknown, or zero.divttie 






test for undef 


isundef(J) 


tot •♦bool 


test for mis8_elt 


it n»w_dt(J) 


tot -» bool 


test tor undef , rmas.ett, pMjmr, 


laerrof(J) 


tot -♦ bool 


neg_over, unknown, or zero_j§vWe 





The error value zoro.dividaDnteEer] may result from the division or modulus operation*. 
The error values pos_ovor[integer] or r»g_ovorflntofer] may result from the arithmetic 
operations if the result exceeds me range of numbers representabte on the target computer. 



If the error value undafltotoger], mi«s_eft[totegor], or zero.divideOntogerJ is an 
operand to any integer operation other than an error test, the result is undef of the a pp ro pria te 

type 
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The integer operators have the following special behavior with respect to the error values 
po«_over, neg_over, and unknown. These rules are of course symmetric with respect to 
exchange of the arguments to +, *, max, and mJn. These rules do nor apply if any operand is 
undef, mis$_elt, or zerojdivide. 

la. pos_over+J - pos.over ifj >0orJ -pos_over, 

unknown otherwise 
lb. neg_over+j - neg_over if J <0orJ -neg_over, 

unknown otherwise 
Ic. unknown + J - unknown 

2a. - pos_over - neg_over 
2b. - neg_over - pos_over 
2c. -unknown • unknown 

3. J - K - J + ( - K ), so, for example, by rules 2a and lb, 

J-po8_over - neg_over if J < Oor J - neg_over, 
unknown otherwise 

4a. J*pos_over - neg_over if J < 4 or J -neg_over, 

pos_over if J > I or J - po3_ovor, 
. if J =0, 

unknown otherwise 
4b. J * neg_over - - (J * posjover) 
4c. J » unknown - o if j « o, 

unknown otherwise 

5a. J < pos_over - true unless J - pot_over or unknown, 

in which case the result is undef 
5b. neg_over<J - true unless J - neg_over or unknown, 

in which case the result is undef 
The preceding two rules also yield true if the connective is <<*, and fatte if the connective is > or 



23 



>«=. They are also of course symmetric with mpecr to exchange of tfia aigMm en tt ajid reversal of 
the connective. 



6*. ob«<po»_j>*or) - tbo(nofjovor) - 

do. ooSHunKnown/ ■ unknown 

7a. max(po«_over,J) - pot.ovor 

7b. min(poa_over,J) -J 

7c. max(nog_ovof,J) - J 

7d. min(noc_OYor,J) - n«f_over 

ie. rnox^unRswiiii, j; ■ unoiown 

*l# aai^a^aBia^aiaaBBWatt^kaaMaA 1\ ' 

«. IWHUUIBiflOWtl, J; ■ 



Other than the above cases, tf an? cperandto a integer oppaHon other 4ha* on error to* is 
an error value, the result btsnsjof ;-c# the appropriate type. 

5.5 Rool operations 

The real ope rat ions are the following: 



operation 


natation 


ftmctionaifcy 


addition 


X+Y 


real reaj -* real 


subtraction 


X-Y 


joat real •♦ real 


multiplication 


X * Y 


real real-* real .-.- 


division 


XV Y 


real reat-» real - 


exponentiation 


«xp(X,Y) 


-■->■ r.^mak.ml^MA 


exponentiation with integer 


oxp<X,J) 


realtor-* real 


negation 


-X 


.-,'.' real -»'feaj . 


magnitude 


obtOO 


rai-»tal 


maximum 


*P*X.Y) 


■ -' ffii f**l ***ffly[ r 


minimum 


*in(X,V) 


real real -» real 
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equal 
not equal 

greater, less 
greater/equal, less/equal 



test for po8_over 

test for neg_over 

test for posjunder 

test for negjunder 

test for unknown 

test for zero_divide 

test for pos_over or neg_over 

test for pos_under or neg_under 

test for pos_over, neg_over, 



X-Y 
X~*Y 
X>Y,X<Y 
X >« Y, X <« Y 



is potjvtirOLY 
is neg_ov*KX) 
is pes_under(X) , 
is neg_undar(X) 
isunknown(X) : 
is zoro_dtv*de(X) 
is pvertX) 
is undergo , 
is arith_error<X) 



posjunder, negjunder, unknown, or zero_di vide . 



real real -♦ bool 
real real •» bool 
real re a l -» boot 
real, real ■»■ boo! 



*eal -» feool 
real -» bool 
real-* bool 

;flet~* feffli 
real •♦bool 
real-* boot 
real •♦ boot 
real -* bool 

'■ Jeal ■«» bool 



test for undef is unde«X) geaj « bool 

test for miss.elt is miss_elt(X) real -> bool 

test for undef, miss_elt, pos_ovor, is errortX) real ■* boat 

neg_over, posjunder, negjunder, unknown, or zerojdiWde 



The error value zerojtf videlreal] may result from the division operation. The error values 
pos_over[reaU neg_overtreeH pes jundegreeft or neg_undertre«#} may result from the 
arithmetic operation! if the resuk exceeds the range of numbers represantable on the target 
computer. 



If the error value undeffreaU mi«8_olt[real], or zero jfyMreel] is an operand to any 
real operation other than an error test, the resuk is undef of the appropriate type. 



The real? operate** have the following spatial behavior with respect to the error mMW 
pewjover. iMBjM«gnMt< wifcnwwa Thai vote* are of coon* sjwroetrtc 
exchange of tftrttf«ipM» ♦. *. isW*"*«l* Ilieie rote do nW apply If 
Uftdtff, noftjlK, wl)oJo||Bwifc 

la. poo_ov«r*X - iHK&mr rx^*m*X -^»jw»«v««J«<*». 



lb. . n««_ovor ** * ftof^wr #* £*»WX - m§jmm or 

iMRnown owewwpr 
lc. un k now n *X> - - flnfcnewn ' • 
Id. po»_und» + X - X if IMMfcwt li* finite 
le. nef_undor+X - X ifX .*4ltfm**fmim-**# ^ 
If. 



lh. 

It. pmjmimt ♦ ©» - 

|j. tW^JUntflfr:*^-.* 



2a. -jioojovof 

2b. 

2c 

2d. 

2e 



.'iVS'v 



X—¥ » X »< - V ). so#ftfr 'e»wo»V bf ft ***! 

X ^pijW'-* WMIWOF mi" 

unknown otherwise 



x *#•*_•**/• - ««guo¥w irX'T^^^&ntiLiiiiv, 
pWiiffwr- ifX^lfPcrX 
OuO If X - OQ, 
unknown otherwise 



-. J,s> — 
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4b. X*negjover - - (X * pesjover) 

4c. X*posjunder - negjunder if -1.0 £ X < 0.0 or X - neg_under, 

po«_under ifO.O<Xft»#X^^pt»ipriW, 

0.0 ifX«0.0, 

unknown otherwise" 
4d. X* negjunder - - (X * pot junder) 
4e X * unknown - 0.0 if X * 0.0, 

unknown otherwise 

5a. X<pos.over * true unless X !- po$_over or unknown, 

in which case the result is undof 
5b. neg_over<X - true unless X- ne|jover or unknown, 

in whtch case the resuk is undef 
The preceding two rules also yield true if the connective ts <-, and f alee if the connective is > or 
>«. They are also of course symmetric with respect to exchange of die arguments and reversal of 
the connective. 

6a. abs(po8__over) - abetnegjover) - pes.over 
6b. ebs(posjunder) - aba(neg.under) - posjunder 
ec eusnunnnown; • unnnown 

7a max(po$_over. X) - pot_over 

7b. mm(poa_over, X) - X 

7c. max<neg_over. X) - X 

7d. min(negj»ver, X) - neg_over 

7e. max(unknown, X) - unknown 

7f. mirKunknown, X) - unknown 

Other than the abpve cases, if arty Operand to a real operation other than an error test Is an 
trror value, the result is undef of the appropriate type. 
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5.6 Character operations 

The character operations are the following: 

operation notation func ti o n ality 

equal C»D char . char -> boo! 

not equal C*«D char, char -> boot 

test for undef i$ und*f<C) c^ar -y boot 

test for misspelt i« na*e_ett(C) char-* bod 

test for undef or Nioojatt l» errortC) char ■* bjgt 



If an error value is an operand to a character operation other than an error test, the result is 
undef[chorecterl 

S.7 Array operations 

The operations for the array data type arrt^] toichide creation of new arrays, selection, 
producing new array values by appending u jtt yoiteiiU to an array yaloc^ and c omb i n ing arrays by 
concatenation. Recall that an array value consists of 4, ranfe defined by a km index LO, a high 
index HI, and a sequence of HI-LCM elements of the given type, some of which may be 
m}«s_elt[Tl 

operation notation funcuonafcty 

create srray.emplytT] -» arravIT ] 

create/fin etTty JHty, K. V) int.ftt.T-> afm*m 

select AflJ aa rafTX l int -» T 

append AfJ : V] ajrajfTl, &$, T -> arrarT Tl 

create by elements = V] int. T -> arraym 

index of highest array JlfluVA) arravm -»int 
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index of lowest 

number of elements 

set bounds 

extend high 

extend tow 

remove high 

remove tow 

set tow limit 

concatenate 

merge defined elements 



array JimKA) 
array_aize(A) 
•rray_adju«t(A, J, K) 
array jaddh(A, V) 
array jaddKA, V) 
array_remn(A) 
array J-«$A) 
array.^eWA.j) 

A » B : , 

array Join(A, B) arraym arraym -♦ arrayJT) 



arravfT I •♦ int 
arrjj[fr]i»M 

*03uP"X let. lot :f attain 

arranT f! T -» arraym 
arravT ri T -» arrafm 
arravm -» arravT rl 
^rrayT Tl -» arrayCT] 



JBl-» arraym 
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test for under 

test for mit8_eft 

test for undef or RH>s_elt 



is undef<A) 
is mis8_o»t(A) 
it errertA) 



arraym -» bool 
array TT] -♦ bool 
arrayfT] -» bool 



In general, the result of an array operation is the error element undef of the appropriate type 
if either an index operand is an error value or an array operand is undef or ndte.eft. The 
remaining cases in which the result is an error are specified below for each operation. 

Create array.emptyttype-spec] 

This is actually a constant. It is an array of the indicated type, whose tow index is one, high 
index is zero, and which therefore contains no elements. 

Createlfill errey^fWKLO, HI, V) 



This creates an array with the given range and all elements equal to the given value. If 
IP > HI+1, the result is tmdeftarrayCni This operation yields a proper array even if V to an 
error value such as undef or poa_over. 
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Example 

array JUKI, 10, 6) 

II a* array with K) cteineim , aB coaal to 6. 

Select AfJ] 

This operation yields the element of the array A at index J. If J is not within the range of the 
array, the resuk is undafFTl Otherwise, the remit It whatever value Is In the array, whh* may be 
an error vakit wch ai mraa_.e4trr] or undoffTl 

Append AfJ: VI 

This returns an array identical to A except that the element at index j has been replaced by 
value V. The range of A Is. expanded as needed to include index J, and any new elements m ;fn* 
expanded range are given the value n»»«_eltm for example, If A has bounds I and 3, and J is 
», elements 4 through 9 wW be mlta^jnttm In the remit. 

Create by elements CJ:V] 

This returns an array with lew and high indices both J, and one element V at index j. 

There are abbreviated notations for compositions of select, append, and create by elements 
operations to simplify construction of multiple element arrays and for operating on 
mufti-dimensional arrays. See Section 6.4. 

Index of Mghest, lowest array JlmtfA), array JimKA) 

These functions return the high or lew index of A, respectively. 
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N umber of elements array_jiza(A) 

Thit returns array JJmWA) - arrtyJJmHA) + 1. 

Set bounds erray_adjuet(A, J, K) . ^ i : 

This returns an array with range (J, K), containing the same dataai A^h^ji^fiJ^^, IfJ^ 
greater than array JimKA) or K U less than array JiwKA), some elements of A wlH be absent In 
the result Jf J U leu than array JI»K A) or % *• greater than array^Jhwh(AUr»e new recreated 
positions are set $ misajeJtfTl ? , 

Extend high, lorn arrayjKJcl*A. V), arrav.acldKA, V) 

, v These return the array A with it* high Index increased by ^*,p^ .j$^ $#p%^pl 
one, and the given value V as the newelement f 

Remove high, lorn arrty_/omh(A), array^p^A) 

These return the array A with its high index decreased by one or Its tow 4*de* 
one. An element of A is tost in the result If the array A has site aero, the result is unetef. 

Set low limit array_8alKA,J) 

This adds J - array JtaKA) to all element Indices and to both components of the range, 
yielding an array similar to A but with the or^in shifted. Its tow Index is J. 
array^etK[2:X,y,zi5) 

denotes the same value as 
[5:X,Y,Z1 

Where the abbreviated notation is defined in Section 6.4. 
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Concatenate A H B 

This returns an array whose size is the sum of the sites of A and B» formed by concatenating 
A and B. The low index of the result is the same at the low index of A. and the eferoents of A 
retain their original indices. The indices of B are shifted as necessary. 

Merge defined elements array JetnjA, B) 

This merges the arrays by elements. The low index of the result is the minimum of 
arrayJiml(A) and array JimKB), and the high index is the maximum of array JirthXA) and 
array Jlmh(B). Those dements of the result that are net within the range of either A or B are set 
to reJ*s_elt Those that are within the rarige of one argument are set to the corresponding 
element of that argument. Those that are within the range of both are set to the corresponding 
element of A if the corresponding element of B U r»i«_«tt, to the corresponding element of B if 
the corresponding element of A is m*S8_eH, and ; to' '-Mat jaU otherwise. Thtt op e r ation it 
intended to be used to merge partially defined arrays, such as an array with only even elements 
defined (the others being mie$_elt) and an array with only odd elements defmed. 

S.8 Record operatione 

The operations for a record type specified as T - record! Nj :Tj ; . . . ; N k : T k ) are the 
following. Nj ... N k are the field names, and Tj ... T k are the corresponding types. 

operation notation functionality 

create 

selectj, 1 < i < k 

replacej, I < i < k K replace [Nj : V] T,Tj-»T 



record! 


Hi:V, ; .. 


..;N K :V k ) 

Tj T k + T 


R. Nj 




T-»Tj 
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test for undef 


isundef(R) 


T-*bool 


test for misspelt 


is inissjrttM 


T-»bool 


test for undef or misspelt 


iserrortR) 


T-»bool 



Create recorcK Nj : Vj ;... ;N K : V K ] 

This builds a record value { (Nj, Vj), .... (N k , V h ) J, All of the field names associated with 
the type of the record being constructed must appear in the list, though some may appear with 
error values such as unde)f[Tj] or mist.eltrr|l 

Select R . N 

t 

This returns the value of the named field, that is, V, if N - Nj. 

Replace R replace [ N : V ] 

This returns a record similar to R except that the N-fldd is changed to V. 

Abbreviated notations are provided for compound selectors and multiple values in replace 
operations. See Section 65. 

5.9 Operations for union types 

The basic operations for a union type specified as T - sneofl N f -. T t ; . . . ; N k : T h J are a 
create operation and a test of a tag. The tagcase control structure explained in Section 7 J te the 
mechanism for accessing constituent values from a value of union type. In the following, N t . . . N k 
are the tag names, and T j... T K are the corresponding constituent types. 

operation notation .fonctionallty 



create^ 1 < i £ k make T [ Nj : V ] T } -» T 

tag test;. I < i < k is N } <U) T -» fajcj, 
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test for urafef 


i«undef(U) 


T-»bool 


tast for rmss_eH 


is misa_e4t{U} 


T "*iKi 


test for undef or rotee_ett 


l»«roHU) 


T-»boot 



The operations make T [ N : V ] and it N (U) are type-correct only tf N is a tag name of the 
type T and V is of that constituent type. Theresafc of mtkm ft rff : V j ii the pair <Nj : V) for 
any dement V of Tj The remit of it N } <U) it true ffU , (W^ anything), und«nbPg>eanl tf U it 
undeffT] or nri««_o«m, or f dee otherwise 

5.10 Type convert^ operation* 

Type conversion operattora are provided bctweeo irrtegm uid reak ami between integers and 
characters. 



operation notation 



real-to-integer 


fatefBf(Xj 


real -♦ tnt 


irrteger-to-real 


reeHJ) 


M-* sal 


character-to-integer 


NitegertG) 


cher-»iht 


integer-to-character 


chared«\J) 


tot -» char 



In eacfc case an argument vaktref undof or mi«_«4t rieMs the reso* Wldef . For other 

Mm§mixy. 



If X is larger in magnmnde than is represent*©* as a proper element of integer, the remit is 
po»_over or rteg_over if x is zero_cH vide, poa_ov«r, r*eg_ove#, or unknown, the result it 
undef. If X is pos_under or neg.undw. the result is aero. Otherwise, the resuk is obtained by 
rounding nonintegraf values of X toward zero. 
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Ail proper values of J are converted to the corresponding reals. If J U Zoro_dWide, 
po*jo»m,iwgjatm,m unknown, the result is under. 

MkegvHCb 

This operation ylekU the ASCII code for the character C 
characterO): 

This operation is the inverse of integertC). Its resuk for values not in the range of 
irrtegorXC) i* not jpecififd. 

S.U Type correctness of operation* 

. * 

In VAL the type of value produced by each expression can be determined by the translator 
from the properties of the operations as specified in this section. An operation in a program is type 
correct if and only if the types of its argument expressions are the same as the argument types 
specified for the operation. Note that for each operator the types of the results are determined 
when the types of the arguments are known. 
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6. CONSTANTS, VALUE NAMES, AND EXPRESSIONS 

An expression is the basic syntactic unit denoting a tupfc of values of warn types. The ortfy 
of in expression is the sue of th* tuple of v*kies it denotes. Tag fiortniioui arc said >» <*«y»m if 
they have the same artfr and the corresponding values are of the same type. The design of th* 
VAL language is such that the arity and types of an expression, and hence the conformity of ueo 
expressions, may be determined by inspection of the program. The simplest type of expression of 
arity one is a constant, a value name, or Mi:f% m&m A § g ^ ^0m ^m^l ^ «*y one 
The simplest type of expression of higher arity 4s a series of expressions of arty one separated by 
commas, 

6.1 Constant* 

A constant is a syntactic unit of arity one whose value ami type are immttesi from ta form. 
Syntax: 

constant tt- nit | true [fatso 

| toteger-number | rt»f-nmwber | ctw ac tef < o m t a m | chaiacter-strtiig-constam 

| afTay_amp*yfc ? oe-*pecJ 

J undofitype-jpec] J mras^oltftype-jpec] 

| poe.ovorftroe-ipec] | n*g_ovorftype-spec] 

| pas jumjartrype-spec] | ra^ur*ioKtype-spec] 

| urAnownttype-spec} | zara joW*ftype-spec] 

The values unde&type-spec] and tnrM_aftbype-spec] are constants denoting the undefined 
value and missing array element value of the type indicated in the type-spec For example, 
taxleffarrayflntoforB denotes the undefmed value of type aet^rtjrtaa^l These two constants 
exist for all types, including array, record, and omen types. The remaining constants for each dial 
type are as foflows: 

The only constant of the nuN typets the reserved word nil. 
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The coolants of the boolean type are the reterred word* true and fali«. 

The principal constants of the Integer and real type are integer numbers awl real numbers, 
Hie format of which are given in Section 3. There are also the fowowiot; arith me tic error constants; 
pot_overQnteger] po«_over[rea)] 

neg_overQntefer] neg^overfceal] 

potjundtMfreal] 
negj un de rfr eel ) 
unknownDnteger] unknownfreel) 

zero_divjdotinteger] zerojdivideb'eel] 

The constants of the character type are the characters enclosed In single quotes. 

A character string enclosed in double quotes Is a constant of type arraytcherecter] 
containing the individual characters of the string as elements. The ftm character Is at index one. 

The array constant erTay_empty(typeJ denotes the array of the indicated element type whose 
range is (1, 0), and hence has no elements. 

There are no othef array, record, or union consents, but various co ns t ru ct i ng operators may 

be used with constant arguments to denote "constant" arrays, records, or union dements. 

Examples: 

[ 1 : 1, 2, 3, 4, 5 ] (array constant, ceo Section 6.4) 

record[ A :6 ;B: 7.3 ] (record constant) 

make T [ A : 6 ] (constant of union type T) 

6.2 Value names 

A value name is a name which denotes a single computed value of a specific type. Every 
value name is introduced either in the header of a function definition (if the value name is a 
formal argument of the function being defined) or in a program construct such as a let block or a 
for block. In either case, each value name has a scope and a type, and has a unique value of that 
type for each instantiation during execution of the function or Mock with which the value name is 
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associated. The scope Of a vtkKRtne is the region ef pitgrem teat in whkh a reference to the 
value name denotes its value. The scope and type of any value name may be de ter m in e d toy 
inspection of the program construct tfett introduces *. to vakw of ceutee depends on the values 
presimt during tttepetttcolarim^^ 

The scope of a value name tntredoond as a formal ai^umam of » function is the entire 
function definition, less any inner Jcopes th« remtroduce the »me value name. The type of such 
a value name Is given by a type ded a mUe toto the ftmcttan header. Its value is the value of the 
corresponding argument for the relevant »*ocaao» of the function. 
Example: 

function F ( x : inlogor roturna rod ) 

<expresskm> 
ondfun 

An appearance of value name X Jo the espresrion denotes the vafcie of the arfumaot with which F 
was invoked, lutypeu 



The scope of a value name introduced in -a p«Qgrtin ^mitrect stsch as a /w or /^ Wock is 
some region of the construct that depends -.on tlw nature of Jtaomtnict. tesiar^ 
reintroduce the same value name. T4»maooer** which thetypeandvawe of the value name are 
established depend* on the faro of Aw can tfiiirr 
Example. 

lot 

X:r«ol:«XO; 

<«nother deddef > i 

<snother deefdef > j 

<«nother de€ldef> ; 
in ^e xpr ess i on * 
ondiet 

The scope of X is the enttre bfcxk, inctodit^; th« exprwiort after In, less any inner scopes 'that 
re-Introduce X. Its type is roal; its value Js 3& The lei osnstruct is described In Section 73. If 
this block had appeared within the scope of X ^trtxlticirf by wme ooter construct, that outer scope, 
with its value and type, would disappear within thfc let block. 
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6.3 Expressions 

Expressions are bulk oat of smaller expressions by means of operation symbols. 
Syntax: 

expression :: - leveH-exp | expression , leveH-exp (the arlttes are added) 
In the next 8 lines, the operators may only be used if all operands are of arity one 



leveH-exp n - level-2-exp j leveH-exp | level-2-exp (boolean "or") 
level-2-exp it - level-3-exp | level-2-exp k leveHHwp (boolean "and") 
tevel-3-exp tt - level-4-exp | ~ leveH-exp (boolean "not") 

level-4-exp ::- level-5-exp J level-4-exp relational-op leveWHexp 
level-5-exp : : - level-6-exp | levet-5-exp | leveMNatp ? (array concatenate) 
level-6-exp -«■•• leveJ-7-exp | tevef-6-exp adding-oplevtf-7<exp 
level-7-exp st- level-8-exp | level-7-exp mokipfyln§^op tevet-S-exp 
level-8-exp it- primary | unary-op primary 

relational-op s: - < | <» J > | >■ j ■ | ~= 
adding-op t:« + | - 
muttiph/mg-op ::- * | / 
unary-op ::- + | - 



primary ::- constant J value-name 

| (expression) 

| invocation 

| array-ref J array-generator 

| record-ref J record-generator 

oneof-test j oneof-generator 

error-test | prefix-operation 



(these have arity one) 

(same aHty as expression in parentheses) 

(arity is the number of values returned) 

(These eight forms 
have arity one.) 
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condltional-exp 
let-in-exp 
j tagcase-exp 
| iteration -exp 
(foralt-exp 
value-name u- name 



(These five structures are 
aescrmea hi oection /. 
They have arbitrary arity.) 



In an invocation, the arttv of the expression in parentheses mint be equal to the number of 
arguments required bv the function. 

invocation u - functioiv-namc (e x pre ssi o n ) 

function-name n- name 

array-ref n-prmwy [expression] 

array-generator tt ■ {e xpress i on ; expression {; expression r expression } } 

I rfrifffftfv I wts »rt t iiBw ^-twpfMsiBn $ * fxartialtW'eHirwtiien M 
record-ref tt- primary . fkld-name 

In the next 7 forms, all expressions must have arity one except as otherwise noted, and the resultant 
expressions always have artty one. 

record-generator n- rocofit I field-name : e x p r e ssi o n { ; fleW- n am e : expfestion } } 

J primary replace) tfittt : expmsioit { ; fieW : expression J J 
field : : - field-name { . field-name } 
field-name t:» name 
oncof-test tt « If tag-name (expression) 
oneof-generator tt - mtke type-spec [ tag-name : expression I 
tag-name tt- name 
error-test :t- r« uno^f (expression) | it mi«a_f|t (expression) 

[ la •rror (expression} J it zoro_divWo (expression) 

| la poa.over (expression) | Hj rtog.ovor (expression) 

| it poe.undor (expression) ( It nogjundar (expression) 

| it over (expression) | it tinder (expression) 

| it arrth.error Expression) | it unknown (expression) 
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The arities of the argument expressions for a prefix op er at ion are as shown, and the result arity is 
always one. 



>eration st- integer (expression) 


(arity - 1) 


| real (expression) 


(arity - 1) 


| character (expression) 


(arfry - 1) 


1 aba (expression) 


(arity v 1) 


| exp (expression) 


(arity-l) 


J mod (expression) 


(arity - 2) 


1 max (expression) 


(any arity) 


1 min (expression) 


(any arity) 


| array_fHI (expression) 


(arity - 3) 


| array Jimh (expression) 


(arity-l) 


) array Jiml (expression) 


(ar^tyj-1) 


| array _aize (expression) 


UrMj-l) 


| array_adjuat (expression) 


(arity - 3) 


| array_addh (expression) 


(arity - 2) 


| errey_addl (expression) 


(arity - 2) 


| array _remh (expreuion) 


4fM*y • ») 


| array _rerol (expression) 


(arity - 1) 


| array Join (expression) 


4*rltf *# 


| array.aetl (expression) 


(arity - 2) 



Note that operators obey the customary precedence rules: unary plus and minus have highest 
priority; multiplicative operators (*, /) are next; additive operators (+, ~) aj^^t; T. U next; 
relational operators «, <«, >, >-, », ~-) are nexi; """ is next; "a." |$ next; ami T has lowest 
priority. 
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Example of expressions of arity one 
A 
true 

3.7E-02 

■wrip tcjn -pqt 
«r«y _wwipty[ l iiafti] 



X>2IIC*WC 

-X+3*B 

3*<X+Y) 

func(3+x » *> CM Tune" reform on* value) 

[3:1] 

A[3:Z] 

A [4, J] 

R . X . Y . ZZ 

record! A: P{B:Q] 

ffroptoBKl AVJt:#*«»Y : Q J 
fe A <U> 

make t [A]: 3 

ieover(X) 

underffroat) 

lfPthen4o4««ooMil <WrS*tl*r7> 

&4 Abbreviation) ft* a«rayo|>or«Uono 

The syntax provides abbreviated forms for the $dmt, aftfcmtf, and matt ** dtmtnts 
op»«aonsrto*flowconvei>^ 

Since multi-dhnertstorttUrrayi are represented as arrays of arrays, the straighdonwd way to 
wtoct an elerwnt'tk wlrh an expresslan sudias 

This may be written 

A£Jt KU 
The expression within brackets has arity three. 
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The append operation can be used for muki-dimensional arrays by using an expression of 
arity greater than one for the subscripts. Thus 
A[J,K, L:V] 

is equivalent to 

A [ J : A[ J] t K : A[J, K) [ L : V]]] 

that is, A with its J, K, L element replaced by V. 

Several values may be appended at consecutive indices by using an expression of arity greater 
than one. 

A [ J : V, W, X ] 

is equivalent to 

A [ J:V ; Jfl:W ; Jt2* ] 

If muki-dimensional arrays, are being used, the last index is the one that varies when multiple data 
items are present. 

A t J, K, L : V, W, X ] 

is equivalent to 

A [ J, K, L : V ; J, K, Ul : W ; J, K, L+2 : X ] 

These expressions need not be constructed by listing expressions of arity one separated by commas. 
Other forms of expressions with high arity will be described in Section 6.6. For example 
A [ J : TRIPLE(X, Y, Z) ] 

fills in indices J, J+l, and J+2 if TRIPLE is a function returning three values. 

Finally, append operations may be composed by writing the J : V pairs in sequence within the 
brackets, separated by semicolons. 

A [ Jj : V t j J 2 : V 2 } . . . ; Jn : V N ] 
is equivalent to 

AtJi:V 1 IJ 2 :V 2 ]...[J N :V N ] 

Where, as noted above, J f and/or Vj may be expressions of any arity. 
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AH of the abbreviations permisstbte for the a#™* operation mpnum*mti*itor**t**f 
tltnunts operation. 
Examples: 

[3:X}5:Y,Z} 

Is an array with range<3, 6), and dements X, mif»_ott, Y. and Z. 

[1:A] 
is a "singleton" array wtttt few and higJt indices both one. 

8.5 Abbr«vi«Moiw for record opw«Uo«» 

There are abbreviated forms for the roploeo operation to daw convenient handling of 
co mpo u nd selectors and mufciofe data elements. 

Accessing m^adth tu n qwwid iel a ^ ^ 



Compound selector* ma j be used In i"Oi*^ operation* by writing the fleW 

by periods: 

ffl0ple CO {A,B.C:V3 

is equivalent to 

R ropJaCO [ A : R. A ropJoce [ fr: R. A^Mpltf»t.C : V B 

that is, R with its A.BX subeornporwrt reptaced by V. 



replace operations may be compoied by writing the N : V paler m seqaeece wttMn the 
brackets, separated by semtookms. 

R r o y it O { A : V t B ; W j CD t X ] 



is equivalent to 

«R replace [ A : V ]> repieeo [ ft: Wfr i e ajWee EeOrXJ 
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6.6 Expressions of hi^tor ariiy 

The program structures provided in VAL for conditional computation and iteration are 
expressions of arbitrary arity, and are described in Section 7. Such expressions, or function 
invocations, may occur in program text in places that require a tuple of values of specified types: 
the argument list of an operation or function invocation, the body of a function definition, a list of 
array indices or elements in an array operation, or in building the program structures presen ted in 
Section 7. ■ 

6.7 Function invocations 

A function invocation consists of the name of the function followed by an argument list within 
parentheses. (The syntax is the same for internal and external and external functions.) The 
argument list is an expression, whose arity and types conform to the arguments required by the 
function. This information is given in the header of the function definition. See Section 8. The 
argument list is usually written as a series of expressions of arity one separated by commas, but it 
may be any expression. 

A function invocation is itself an expression whose arity and types are the number and types 
of the values returned by the function, which information also appears in the function's header. An 
invocation that returns one value may appear in expressions with complete generality, such as an 
argument to arithmetic, array, and record operations. An invocation that returns several values 
may only be used where expressions of higher arity are permitted. 

In the following examples, SINGLE, DOUBLE, and TRIPLE each take 3 arguments and 
return 1, 2, or 3 values, respectively: 

K := 3 + Z * SINGLE (X + 1, 3, SINGLE (X + 2, 4, W)) ; 

In the following example, if P is false, F and G are defined to be DOUBLE (X, Y, Z), while 
H is defined to be W: 

f, g, h :« If p then triple (X, Y, z) else double (X, Y, z\ w endif ; 
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Since the argument Hit tor *ny function w»ay be any expression, it m«yi»f y m i M p te ffclH 
function invocation or other program structure. 
3 ♦• sino£ rrmt (X, Y, 2» 

3+ SINGLE «P,aWuUO<,Y r ZJ> 

4 + SINQLE<1fPth««'4,5«*WO0UBL£(P,ftR>undll,X) 

The last example invokes SINGLE with tiweeai yan e nu^ or which the ftrst two are 
or the two values returned by DOUBLL The tWrd trgosaont to SWOLE U ahvays X 



-46 



7. PROGRAM STRUCTURES 

The program strectum described in this taction arc specnlc forms of expressions. If their 
arity is one* they may appear t» arithmetic operation*. 
Example-. I 

i 

If P them x else Y emlf + 3 
This expression has value X+3 or Y+3, depending on P. 

7.1 The IF construct 

The conditional expression selects one of several expresstans, depending on the values of 
boolean expressions. 

Syntax. 

condttionatap ::- if expression then expression 

{ elseif expression then expression } 

else expression 

endif 

The expressions following if and elseif are test exprtulems. Their arity must be one and their 
type boolean. The expressions following then and else are the arms. They must conform to 
each other, and the entire construct conforms to the arms. 

The entire construct is an expression whose tuple of values is that of the first arm whose test 
expression is true, or the final arm if att test expressions are false. If any test expression needed to 
evaluate the construct is an error value (undefEbootean] or miss_elt[boo)een]), the value of the 
entire construct is a tuple of undef values of the appropriate types. 0f a test expression has value 
true, la»r test expressions are not needed and may have errpr values wtthc^ affecting evaluation 
of the construct). 

The if construct introduces no value names. All value name scopes pass into an if ^WHtffitt 
If the scope of a value name includes an if construct, it includes aM of th§ expressions of that 
construct, so that value name may be used anywhere inside the c ond i t i onal construct 
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7.2 The LET construct 

The purpose of thH corotroct is to introduce one or more vahw names, define their values, 
^ Mid tttntintnn nrpmninn within tlmlr iri^w (tlinl li] nethwjjm tf itiili) iftflnel lilmi) 

Syntax: 

let-Hr-exp::» 

let decldef-part 

in expression 

onojen 
decldef-part ir*dec*Jef { ;decJdef}[;] 
dectdef ii*dect 

|def 

| decl {, dect }:- expression 
ded : t - value-name { , vaJoertsme } : typrspec 
def »: - vatoe-mme { , vatoe-rumr j :* expression 

Every value mme introduced in i lot block mutt be declared exactly once and defined exactly 

once in that block. The declaration may be part of the definition, or it may be by itself preceding 

the definition. 

Examples: 

X: integer; (declaration) 

X:«3; (dafWtion) 

Y : real s« 4J 4 Q ; (dederttlon « pert of deHnWon) 

The declaration of a value name must precede or be part of to definition. Each value name 
must be defined before It is used (on the right hand side of another definition). Dedarattom and 
definitions may be mixed in any order as kmg as these mniuements are met 

Several value names may be declared at once 
x,Y,Z:ree1; 

Thb declares all 3 names to be reel 
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Several value names may be defined at once,. The mtn^and t]^iei of the naows must 
conform tothearity and I t||Sf»,ortltB > jsgt|mi||taQ-^ |bj^rs|^|tipdLjMd^ t ', t , . 

X, Y, Z :« 1.0, 2.0, 3.0 ; 
P, 0, R :• TR1PLE(X, Y, Z) f 

Several value names may be declared and defined at once. In this case, each of a group of 
value name names preceding a type specification are declared to be of that type. 

x : Integer, y, z : real :- 3, 4.0, 5.0 1 

This declares X to be integer, and both Y and Z to be real. 

The declaration!, definitions, and combined declarations and definitions are separated by 
semicolons; a semicolon after the last is optional. 

The scope of each value name introduced in a lot block is the entire block b*» any Inner 
constructs that re-introduce the same value naitw. However, a value name must not be used In the 
definitions preceding its own definition. 

All scopes for value names not introduced in a given lot block pass into that block. Hence, If 
t.he scope of a value name (introduced by an outer construct) includes a^tb^ock and that value 
name is not reintroduced, it may be referred to freely within the. Mock. 
Example 

let X : red ; T : roal i 

T**P+&7r 

X:*T42.4j 
in X * T 
encfet 

In this example, the value of P is imported from the outer context The **»pe|Of T and X are 
both the entire block. A reference to X in the definition of, T woyW jbe illegal because it is within 
the scope of X but docs not follow the definition of X. Jgte,4^,Kjta <P*ntt ^ m and Its 
type is real, because X*T has arKy one and type real. 
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Since a value flame maf not be used until after it has been defined, and must be defined wily 
once in a block, It may not appear In Hs own defmition. Hence defmitions such as 

I :» I + 1 ; 

are rfiver legal in let blocks (though they may occur in iter clauses of for Mocks; see Section 7.4,1 

The expression fotlowmg the word In ism the scope of aH of the introduced value names, and 
hence can make use of their definitions. The entire tat construct co nfo r ms to this expression. 

7.3 The TAGCASE construct 

This selects one of a number of expressions, depending on the tag of a onoof value, and 
extracts the constituent value. 

Syntax: 

tagcase-exp «:- 

tagcete [ value-name :-] expression [; ] 

tag-list : expression 

{ tag-ttst : expression } 

[ otherwise : exprorton ] 

endtag 
tag-list tt« tog tag-name {.tag-name} 

The entire construct is an expression whose values are those of the expression m the arm whose tag 
name matches that of the value of the test expression. If no match is found, the arm following the 
word otherwise is used. Afl arms must conform to each other, and the entire construct conforms 
to the arms. 

The expression following the word tffCttS must be of arity one and of a OAeof type The 
tag names appearing in the arms of the construct must be tags of that onoof type. If they comprise 
aH the tags of that type, fr* otherwise arm is not used; if not. the otherwise arm ii required. 
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If a value name and ":=" appear after the word tagcase, that name is introduced for each 
arm of the construct except the otherwise arm. Its scope in each case is the expression in that 
arm, and its type is the constituent type indicated by the tag name for that arm. If an arm is 
evaluated (meaning that the tag of the test expression matches the tag name of the arm), the value 
name is defined to be the constituent value from the test expression. If the value name and ":«" do 
not appear, the constituent value is not made available inside the arms. 
Example: 

Let X be of type 

oneof [ A : integer ; B : array [integer] ; c : real 1 : boolean ] 

If X has tag A and constituent value 3, 
tagcase P := X ; 

tag A : P + 4 
tag B : P[6] 

otherwise .- 5 
endtag 

has value 7. The first arm is taken, and P (whose type is integer in that arm) is defined to be 3, 
the constituent value of X. If X has tag B and constituent value some array whose sixth element is 
2, the value of the above construct is 2. In that case, P is defined to be the array. If X has tag C 
or D, the construct has value 5. In that case the constituent value is not available, since the value 
name's scopes do not include the otherwise arm. (This is because the otherwise arm can 
encompass different constituent types, so the type of the value name could not be determined.) 

More than one tag name may share the same arm if they indicate the same type. In this case, 
the tag names are all listed, separated by commas, after the word tag. 
Example: 

Let X be of type 

oneof [ A : integer ; B : real ; c : integer ] 

Then the following is permissible 
tagcase P := x ; 

tag A, C : expression} (P is integer here) 

tag B : expression2 (P is real here) 

endtag 
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All ece*et«f n**num other than theont *p pu u*n i lKr th« word ttM— pti toto t»w 
construct An outer *npr tor t *ate*-ntme with the latne hamr a. Ito am apfMtfttif iftiFftt 
word tntcnen doet wot pa« tate the tlpnto iiMiiiiii I. 

W the vateeof thet«t etpMiii^mr* fcf^#ii'«^««iwiit«# 

of tilldW:ve&n*..ofltlie , a|nwjn^^ 

7.4 The FDR corMtmct 

Thto performs lequmtial Kerattan in which one tMratten qpcte depends on the reesto of 
previous cjdes. The eomtract ii i i iotfn eji • number ef 'wit name*, cafcd 4an> nemw. whfch 
convey information from one cjcteto the neat. 

SitUax: 

tterattofexp :i« 

ftar deddef-next 
on iter ~ead 

wwhwhf 
tterend, »»- Wr eanr f psi q n then ter-<ml 

{•' •laaif v a«a^«tfarihon tter**d V 
vjwsvKanwv> wAe^enenpwjinwwnn? •■■ w*n.*T(wwFj..yw^p- ■ 

| tagcaaa [ vatoe-namt :■ ] expreuton [ ; ] 

Ug-lUt : ittr-*nd 

(tafrfct-: tterend J 

f othorwie n : iter-end J ntidlejg 
| lot deddetyart in lter»end mdM 
I expression 

| Itnr def-part nndttnr 
defpart h - def { ; def'} [ ; } 

The loop ntmei are those appearing m the dechrations an* definitions fotowing the word 
for. These dedanttatu and deflnttiem have the sanw feim as m a l«i Mock. 
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The behavior of the for construct is as follows: The loop names are initialized, only once, to 
the values indicated in the definitions appearing after the word for, and the first iteration cycle 
begins. During each iteration cycle these names have fixed values. 

The iteration body is then evaluated, using the current definitions of the loop names. The 
result of that evaluation is either a decision to terminate the iteration, with values to be returned, or 
a decision to Iterate again with new definitions for the loop names. 

The iteration body consists of an if construct, tagcase construct, or a tree of if, tagcase, and 
let constructs, with a slight modification: the arms may either be conventional expressions, or may 
consist of Her, some redefinitions, and enditer. There may be many arms of each type. 

If the arm that is chosen for evaluation is an expression, the iteration terminates, and the 
values of the expression are the values of the entire for construct All such arms must conform to 
each other, and the entire construct conforms to these arms. 

If the chosen arm consists of iter, some redefinitions, and enditer, those loop names are 

redefined according to the the right hand sides of the redefinitions, and evaluation of the body is 

repeated. 

Examples: 

for Y : integer :- l » P : integer :- N } 

do if p ~« 1 then iter Y :« y*p s p :» p-i > enditer 

eiseY 

endif 
endfor 

This computes the factorial of N. It introduces loop names Y and P, which are both integer. Their 
initial values are I and N, respectively. 

The body of this construct is an if/then/else construct whose first arm is a redefinition and 
whose second arm is the expression "Y". Accordingly, at the beginning of each iteration cycle P is 
tested. If it is not one, the iter arm gives Y the new value Y*P and P the new value P4, and 
another cycle begins. If P is one, the iteration terminates with the value Y. 
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fOT T : root :« X j 

(fa MD : real :- <X/T - T>/2 ( 
Hi Hq<«p»«mmit 

etoe iter T :- t + D { ondHor 

endfor 
ThU computes the square root ofTC, using Newton's method. The Iteration body uses a let Mock 
to introduce the temporary name D. ft tmporo the value *^j from the context m which the bmek 
appears. 

The next example reverses me list given as TNWT". by initially defining T to be INPUT 
and U to be the empty Hst. and then repeatedly movtog tow from T to U. Assume the type LIST 

has been defined by 

type LIST - oneof [ empty : mMimmmpfy MWpOftfl .ton ;;» POut »re»t : LIST B 

A "LIST" is a chain of records con i ainto g an atsMtraty number (p sihapi aero) of reals. 

for T, U ! LIST j» «*VT,1U0i»USTta«f»yi»ft}j 
do t«fCOOOZr-T! 

tag empty :U 

tog nonempty : 

Iter 

T, U :» Zjw^lMteUST [ non e mpty ! re«J0Piirto*:2aem iroe* : U TJ i 



endfor 



The mop voJtw names must ml be different. Their scopes are the enttr* for construct has any 
inner blocks that re^itroduce the same name. They are deehwed ami torttahy defined m the same 
manner as in a tot black. As in a lot block, each name must be declared exaem/ once and defined 
exactly once, and may appear <o» the fight totd side amy in deftnttiom after Us own. Each 
declaration; definition, or combined declwatto end defm Wen most *r Mkmod by a temleOton 
except the last, for which the semicolon* optional 
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Within each iter aim the redefined value names must be a subset of the loop names. These 
redefinitions may make use of the previous values of all names, including the one being redefined. 
These redefinitions do not include declarations, since the types of the loop names were declared at 
the beginning of the for construct Each redefinition must be r p lUnn s d by a semicolon except the 
bst, for which the semicolon is optionaL 

Unlike the definitions in a lot/in block or the initial loop value definitions in a for block, a 
redefinition in an iter clause may contain, on its right band side, loop names that appear on the 
left hand side of the same or later redefinitions. In such a .ca*e*thj%!osd".. value is used, that is, the 
value that the name had on the iteration cycle just ending. If the name appeared on the left hand 
side of an earlier redefinition, its "new" value is used, that is, the result of that led efmltl on. 

Hence a redefinition such as 
J :« J + 1 ! 

is legal, and means that the next iteration cycle is to begin with a value of J which is one greater 
than its value on the cycle just ended. In the factorial example given above, the Iteration clause 
iter Y :» Y«P ; P :- P-l ; enditer 

multiplies Y by the old value of P. If the order had been reversed: 
iter P :- P-l i Y :«y*p i enditer 

Y would be multiplied by the new value of P, and the example program would compute the 
factorial of N-l. 

The simplest way to redefine |two or more loop variables in terms of each others' old values is 
to use a multiple assignment. For example: 
iter x, y :* Y, x ; enditer 

exchanges the values of X and Y for the next iteration cycle. 

A loop name not appearing in a redefinition after iter retains its old value. 
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The scope* Of wit vatee names other tlwn tfce taep nwmi paai from ootcf blocki twtp the for 
Mock. 

Irain B eWW , 'OC©UlS?iW*mTFOJB^ 

in an if or togca— comtruct evatoatw to an mor v»^ t»c IttiMiw W iii ifaW l M « w d rtt omi « to 
value a tuple of umM valua of appropriate type*. An error truifig ebewhere in the mop body 
don not came spedalacnoir U tfetrtsesm atrtt** arffrnujlool^^ defined to be 

the error value and Hie ttenrttan cowttnow. If It trim bran expression giving the final value to be 
r e turned , that error vaioe simpty appmn nrthe result 

7.5 Tho F08ALL conatmel 

This generates one or more sets of values, of uniform type within each set, and either returns 
them as arrays or returns the result of some operation (such as addition) on them. The former ease 
is indicated by the word construct, the htter toy tlie word ovai toW aw id by the name of the 
operator The values may not depend on each other - the bit e mi o n is mot they be computed 
■ simultaneously on. a paratfcf tempnl e r taptlm)#flOBi|io, ' 



This construct introdum.'OU*;«rmenrm^ a number of 

optional temporary value names, the tetter to the the same manner tt m a lot Mock. 

Sfittax-. 

foratt-exp t: • 

faraH value-name in [ expfcuton ] { t va lue nam e fa* [expression ) } 

[ deddef-part J 

foraH-body-part 

{ feraff-body-part } 

oncMI 
forall-body-part ::- conatrud exprewkm | ovd fort »-op expression 
foratt-op « - pitst [ tuna* | mm | mux J or [and 
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The index names are those appearing before the worcHli The temporary names are those 
appearing in the declarations and definitions. 

The index and temporary names must all be different Their scopes are the entire construct 
less any inner blocks that re-introduce the same value name. The types of thejndices are integer. 
The types of the temporary names are specified in their dcot artttons. ^MMn*H 1*1 expression, a 
temporary name may not appear in definitions prece ding ill con. 

Each expression appearing in brackets after the word In is of arity two with both types 
mtegefr The two cotrtpMenti ire the low and 1 high Hmtts, inclusive, for the index. For each 
number within those limits, the index is defined to be : ^n*^lDer; : 'ii'ciimfuWs ; ot die temporary 
names are made, and all the para are evaluated. When more than one index is given, this is done 
lor each point ttt the Cartesian product 41 of ttie ranged ^iaf is; ttr every combination of index 
values. ■■.-'■■■'•. -v-- 

In a construct part, the expression is evaluated for each mdex value, and for each 
component of 1h* expression, an arraf is lormed r1iavl^nl# : tanie*1i#tiis' ft* NnfRS given for rfte 
index and elements equal to the values obtained. If more ttrtn^'one' Index is given, a 
multidimensional array is formed, that is, an array of arrays, with the first index referring to the 
outermost array. If some component of the expression is an error value for some index value, that 
array element is simply set to that error value. 
Example 

forallJ in [ l, 4 ] 

x : real :■ squ«re_root(real(j))j 

construct J, x, x+i.o 

eodatt 

creates 3 arrays, alt with range I to 4. The first is integer and contains values I, 2, 3, and 4. The 
second is real and contains 1.0, 1.414, 1.732, and 2.0. The last is real and contains 2,0, 2.414, 2.732, and 
3.0. This foratl block is an expression of arity three whose values are these three arrays. 
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f orall J in [ A B ], K in [ c, D ] 
construct <oxpressten> 
endall 

it 8qtt»Vatent to 

f orall J in [ A, B ] 
construct 

fowdtKint^o] 
construct <9t prm t lm> 
onrfaH 
endall 

and constructs a two^nwmswuU array, that ^ »n arntf w*ok Umtti are [ A, B } and whose 
eternerits are arrays whose toata are tCVDl 

In an oval part, the operation imitt be one of ptet, tl tao a, win, wx, or, or «nd. The artty 

of the expression must beone,«nd Ju type nw« be a^>f)ro^late for the operatton: real or imeyw for 

plus, time*, min, or max, boolean for or or and The expression is evaluated for each index 

value, and the operation is performed on the coHcctton of values that are produc e d . If multiple 

Indices are tue4 ibeacytiatlan^ 

eornouuittons ot *naex ihri. 

Example. 

forall J in [ l, N ] 
oval plus jftj 
andatt 

N 
returns V f . 

The result of an entire ^ forall block is an expression OBnttracted by concatenaUng the results 
of all of the parts. 



-58- 



Exampte-. 

forafl J in [ 1, N ] 

x : real :- s<|U3f •_roo«raaK J)) ; 

evalpiu$j«j 

construct 4 x, x+1.0 

endail 

is an expression of arity 4 and types integer, arrayflntegerl arraytreeil and arrayCreall 

If one of the bounds is an error value, or the lower bound is greater than the upper bound 
phis one, the result of the entire forail block is a tuple of undef values of appropriate types. If the 
lower bound is equal to the upper bound plus one, the result of each construct part is an array 
with no elements, and the result of each evo! part is 0, 1, pot.ovor, negjDver, fatso, or true, if 
the operator is plus, times, min, max, or, or end, respectively. 

The scopes of any value names other than the index and temporary names, introduced hi 
outer constructs, pass into the foroU block. 
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& FUNCTION DEFINITIONS 

A VAL program consists of a coHtction of modntes, each d e fining o we "extemaT ftmctton tad 
any number of "interne** functteim Each funetsan 'i»AalaiaYlf^^Ha«K ttyMMav: Which tt £ 
piece of text consisting of; 

(1) The word function. 

(2) The function name and information specifying the arity and types of Its arguments 
and returned values. This information U called the "fwader" 

(3) The type definitions used in the function definition. If this is an external function, 
the declarations of other external functor by this ipear here also. 

(4) The definitions of the Internal functions si to thtt one. Function definition* 
may thus be nested arbitrarily. 

(5) The eiq*ressfc*vgi*ing the^ 
of the function definition. 

<©K The word endfun. 

The definition of an external function » an entire module in VAL. Definitions of internal 
functions appear w*hta taKtiwdefintocroto 

Syntax: 

module :«- externahfunctfcxhdef 
extemaHunctton-def ::- 

function function-header 

[ type-exten»Hief-part ] 

{ intern»Munction*def } 

expression 

endfun 
internaHunction-def s:- 

function function-header 

[ type-def-part ] 

{ internaMunctton-def } 

expression 

endfun 
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type-external-def-part »- type-exttrnal-dff {;typr«e«ti*NW} [; ] 
type e xt cr n al-dcf i; ■ type-def [ externafrdef 
type^efwpart,:. typ**rf ( ; rype^ef }[;] 
.;■•• type*def ■*** type type-name » type-spec 
externaHtef »: • external function-header 

function-header :: - ftifKtk>R-name ( d«cl j ; d«r } returns type-spec ( , type-spec } ) 
function-name «:•> name 

Example: 

function sum_of .squares (X, y : real returns real) 

X*X + Y*Y 

endfun 

Only the external (outermost) function defined in a module to accessible to other modules. 

Optional type definitions may appear after the header to give names to types. These 

user-defined names may be used anywhere In the function definition, including Its own header. 

The type definitions (and external declarations) are separated from each other by semicolons; a 

semicolon after the last is optional. 

Example. 

function co^pjexjmiltiply (X, Y : complex return* complex) 
type complex - record [ re, im : real ] i 

record [ re : X.re * Y.re - X.lm » Y.im ; Im : XJm * Y.re + X.re * Y.lm ] 

endfun 

8.1 The header and value transmission 

The list of formal arguments and their type specifications appears in the header between the 
left parenthesis and the word returns. These declarations are separated from each other by 
semicolons. Each declaration may contain several value names, which are separated from each 
other by commas. 
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The scope of the formil ar^menu h the body of the fmKUon {the «xprt«*o»i), tew any Inner 
constructs which re-introduce the same value .-name, Their types ;erojtttef^s^;^:tiie better 
decorations, and their values am the values of fhe»a^^ The 

types Of the returned values are given in th< im el qrpe ^w>liwMqHi, sepetaied hy ■ comnMH, 
appearing after the word return* This bstiif types must e*ihwm to the body. In every 
invocation of a function) tinKSKSfgene and ^ -.njaein! 

those of the definition. 

The meaning of a function invocation is as follows: If the function F is defined by 

function F < » { : tj . . . eg : t N returns «j . . . « K ) 

800YEXP 

endfun 

then, assuming the definition is correct and conforms toits invocation, the Invocation 
F<A8GEXP> 

is equivalent to 

....:_■.. let »!:»! ...* N :t N :-ARG£XP i« B0O>©(PnSKlol 

JL2 ThnDfTERNALdoclerotton 

All functions used in a module that are not defined Jn that module must be declared in an 

external declaration. This decttration consists of fhe word enterfiej followed by a copy of the 

function's header, which is used by the ttansb^^Jsr^i^cheeJMojg. 

Example: 

function t»n ( x : fee) return* real) 
external sin < Q : rent return* feel ) i 
e^errml co« ( Q : re«l returns re4ri ) i 
sinOO/cosOO 
enjoiun 

This module defitiesth^^ 

not defined here, they must appear in emtetrtiaj declarations. (They rmm be delloed 4n ikther 
modules or accessed in a subroutine library.) The eternal declarations contain the headers for 
jin and cos, just as they ought appear in die definitions of these two functions. The formal 
arguments appearing in the headers <"QT in the preceding example) have no significence; tisey are 



62 



included only for syntactic consistency. The intention is that the headers be copied verbatim from 
the modules defining sin and cos into the module defining ton. 

A module's external declarations must appear following the header of the o ut ermo s t function 
definition of that module, even if the functions being declared are used only by internal functions. 
The external declarations may precede, foHow, or be mixed with the type deOnitton* of the 
outermost function definition. 

8.3 Inheritance of data, type definitions, and external declarations 

A function has access only to the data presented to it in its invocation. No data values are 
imported from any enclosing function definition. Type definitions made in one function definition 
are inherited by all functions subsidiary to it A redefinition in an Internal I function of a type name 
already defined in an outer context is not permitted. 

External declarations made in the outermost function definition are inherited by all internal 
functions. 

8.4 Scope of function definitions 

The scope of an external function definition consists of alt modules of the program except the 
module defining the function. That is, any external function may be invoked from anywhere 
except in the module giving that function's definition. The scope of an internal function consists 
solely of the immediately enclosing function definition. Note that this precludes any recursion or 
mutual recursion. 
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The scope rates far functions and type definitions are fltortratad by the fofowtng 

function F( <header> ) 
•xternd FF ( <be«fer> ) ; 
typo T * <type^p^> ; 
function G ( <he«fer> ) 
type> U - <typ**pae> s 
ftmctton M < <he*ter> ) 
function N(<tmder>) 
B0OY N 

endfun 

BOOY M 

endfun 

endfun 

function H ( <be»tter> ) 
function P < <he«far> ) 

BOOVp 

endfun 

BODY H 
endfun 

BOOYp 

endfun 



the body oT 



>tnsy invoke AuKUuns 



F 
G 
M 

N 
H 
P 



FF (externa^ C, H (internal) 
FF (external), M internal) 
FF (eWenwJX N (internal) 

FF (external) 
FF (external), P (internal) 

FF (external) 



64- 



the body and header of may me defined types 



F T 

G T,U 

M T,U 

N T, U 

H T 

P T 



The modules comprising a program are translated separately. The manner in which their 
names are used to access them in libraries and the manner in which they are linked into a complete 
program is dependent on the implementation. No recursive invocations among external or internal 
functions are permitted. 
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Appendix t - Formal Syntax 

module ::- externaMunction-def 
externaMunction-def n - 

function function-header 

[ type-exteroaMef-part ] 

{ iTtternaMunctlon-def } 

expression 

endfun 
internaMunction-def :i- 

functton function-header 

[ type-def-part ] 

{ intemaHunctton-def } 

expression 

endfun 
type-external-def-part t : •> type-external-def { ; type-exter nahi ef } [ ; ] 
type-external-def u » type-def j externaWef 
type-def-part u« type-def { ; type-def } [ ; ] 
type-def it - typo type-name ■ ■ type-spec 
extemat-def n - external fu nct i o n he a der 

function-header :: - function-name ( ded { ; ded } returne type-spec { , type-spec J ) 
function-name »:• name 

expression j: - leveM-exp J expression , leveHhexp 
leveM-exp t : » level-2-exp J teveH-exp f tevet-2-exp 
level-2-exp jj- levet-3-exp J fcveJ-2-exp & tevel-3-exp 
leveM-exp :> ■ leveH-exp | *» leveM-exp 
leveM-exp »: - level-§-exp j leveHkexp relational-op level-$-exp 
level-5-exp is- tevet-6-exp J level-5-exp | leveMhexp 
tevel-6-exp 1 1 - levet-7-exp | teveh6-exp addtng-op levef-7-exp 
levet-7-exp : : - leveMtacp ] teve^T-exp ma ttip ly ing -op l e v el ft- exp 
levef-8-exp :t- primary | unary-op primary 
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relational-op :: - < ] <«? J > j >*>! - j *»» 
adding-op ::- + j- 
muttiplying-op »-* J/ 
unary-op »- + I - 



primary :»- constant J value-name 

J (expression) 

| invocation 

J array-ref j array-generator 

| record-ref | record-generator 

| oneof-test | oneof-generator 

] error-test | prefix-operation 

j conditional-exp 
tet-in-exp 
tagcase-exp 
iteration-exp 

J forall-exp 
value-name ::« name 
invocation j:- function-name (expression) 
array-ref ::« primary [expression] 
array-generator ::- [expression : expression {; expression ; expression } ] 

| primary [ expression : expression { ; expression : expression } J. 
record-ref ::- primary . field-name 
record-generator : t - record [ field-name -. expression { ; fiekkname : expression } ] 

| primary replace [ fleW : expression (; field : expression } J 
field ::- field-name { .field-name } 
field-name r»- name 

oneof-test ::- is tag-name (expression) 
oneof-generator : t - make type-spec I lag-name : expression J 
tag-name n- name 

error-test : : - is undef (expression) | is misspelt (expression) 
is error (expression) | is zerojdivkle (expression) 
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1 1» pos_over (expression) | is nef_over (expression) 
| is po«_under (expression) | is rteg_under (expression) 
| is over (expression) | i» under (expression) 
| is aHth_e4Tor(« pt^M | t»w**we m(e Ap »e » »iw) 
prefix-operation st- integer (expression) 
| reel (expression) 
| character (expression) 
j ebs (expression) 

exp (expression) 

mod (expression) 

mex (expression) 

min (expression) 
| erreyJfiW (expression) 
| array Jlroh^expression) 
| array JimKexprmitm) 
| array _siz« (expression) 
I array.odjuot (expression) 
| arrey_addh (expression) 
| array _ad<i (expresiion) 
| erray_renih^«tpres$ton> 
| array _reml (expreuion) 

array Join (expression) 

array _oetl (expression) 
constant n- nH | true | f aloe 

in te ger - n um ber | reatoumberj character-constant j dtafacter-strtng-cxxtttant 

arrayjenplyfcw^e^pecj 
| imdefltype-spec] | nrfos^eltftype-jpec] 
| pes _over(type-spec] J ne&_ov«fftype-spec] 
| pes _under(type-spec) | net_und«r&ype-spec] 
J unfcnownftype-spec] | zero_di vide[type-jpec] 
type-spec ::- basic-type-spec 

compouncRype-spec 
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| type-name 
basic-type-spec :: - null | boolean | integer | f Ml j character 
compound-type-spec ::- array (type-spec] 

| record [ field-spec {; field-spec } J 

| oneof [ tag-spec { ; tag-spec \ I 
field-spec i: - field-name { , field-name } : type-spec 
tag-spec it - tag-name { , tag-name } [ : type-spec J 
type-name ::- name 
conditional-exp ::- If expression than expression 

{ eUeif expression than expression } 
else expression 
endif 
let-in-exp ::- 

let decldef-part 

in expression 

encNet 
decldef-part :: - decldef { ; decWef } [ ; ] 
decldef ::- deel 

|def 

| deel { , deel } :■ expression 
deel :: - value-name { , value-name } : type-spec 
def :: - value-name { , value-name } :« expression 
tagcase-exp ::■>' 

tagcase [ value-name := ] expression [ ; ] 

tag-list : expression 

{ tag-list : expression } 

[ otherwise : expression ] 

endtag 
tag-list :: - tag tag-name { , tag-name } 
iteration-exp ::- 

for decldef-part 

do iter-end 
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iterand :«- if expression then tter-«*d 

{ «l«eifexpr»Mton. tl li » iter end } 
etee iter*end v ene*ri ■ 
| t»fcat« [ vtlwr-twnw := }«^f«Mwi» [ ; ] 
tag-list : tterend 
{ Ug-litt : iterend } 
[ otherwi s e : tertpd ] «pdt*g 
| let dccldef-part to rtw -end ondtot 
| expression 
| iter def-part endrter 
def-part :» .» def { ; def :}»[ ; ] 
foralt-exp ::- 

foreH vatecnaiae In [ expression J?{ , wduenaiooill^c»praiiion J } 
I deEfctef-part J 
fbratt*bedy-pait 
{ fbratR wdy - p art } 



foraJI-body-part : : - conotruct expression | eve* foratt-^ expression 
foralNip « » p4ut | timeo | nk) 1 1 
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VAL Syntax Charts 



Function Module 



— t*f function)-* 



Function 
header 



Type and 

function 

definitions 



Function 
module 



Expression ■*/ ENDFUN \»- 



Function Header 



Function 
name 



/(Yr*. F ° rmal +Y~\+. 

V J 1 1 parameter I j^ 



-gh 



Type-spec 



t> i » fBETUBNS^— •t-*' 



o 



Type-spec 



JrO 




Type and Function Definitions 



O 



— »\" TYPE 3~* 



Type 
name 




Type -spec 



■/extern alV-» 



Function 
header 



rGh 
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Typs-Spsc 



< 



•Ma 



•H CHARACTER 



> 



'» » 



Typt: 



■ ..,.,„,;,„.-,- ■„.■,,- - ...^ 




FiaW-Spec List 




" » 



Tag-Spac List 



Tag 
name 







W 'Tfpe.<pec. 



Null type 
abbreviation 
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Expression* 













Unary 
operator 






1 
Expression 












' J 
























1 

Expression 




Multiplying 
operator 




1 
Expression 












i 
— 1* 


, 




























— »»■ 


Adding 
operator 










•/7V 








"v^ 








— I*. 


Relational 
operator 


















\y 










1 
Expression 
































\D 














n 
Expression 


.r^i 




n 
Expression 








LJ 




























Primary 




I 























'The precedence levels for these infix operators is 
illustrated by their position in the chart; "unary 
operator" is highest precedence, comma lowest. 

The superscript following "expression" indicates 
•he number of values that must be represented 
by the term replacing that box in the program. 

- an exact number ■•»' that arity is the only legal one 

- "n" '» any arity is valid 

- "K" =» arity must match arity of other 

expressions in some chart 
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Primary 
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Iteration Exp 



( F0R > 



Decl-def-part 




DO 



Iter-end 



»T~ENDFOR~J- 



' ■■» 



Iter-end 



< .ter y -j 



Value 
name 



o 




o 



Expression 



Expression 



Conditional 
iter-end 



Tag 
iter-end 



Let 
iter-end 



-r^C ENOITER \ 



"<> 



Conditional Exp 
(conditional iter-end ) 



CIF \ — ■* „ — t^flHEN) — ■» 

J Expression V J 



'— ( ELSEIF ) -> Exc ^,, o „ — C THEN ) — 



< 



*-\ ELSE 



Expression * 



iter-end ' 



Expression 
iter-end 



J 



expression •* 
iter-end 



ression ■« /■ \ 

*. — »J ENDIF V 

ter-end V i \* 
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Ut-inExp 
(fJMitMNnd) 



f LET Jr~ — *" C******? i*—"*C 



tN 






m 



< 



•*•** EMOUT 



( mft w- iKi) 



f TAGCAM J- 



Vaiut 







TAG 



>1 



T«t 



o 



^^^y 



•*■ 



o 



^^Ni^niMwit 



. ,:t ; i i 1.i 






-•» 



Iiww w K iw ' 



+r~m 




'mm£. : .mmm&-*^r'**' 




DteMtfeiri 




fMKTi 



EVAL 



MM«>a«M 



JWtorg* 

operator 



1 

Exprsuion 



(ENDAU %*> 
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Definition 












Value 
name 




-/ 


i 


S 


""4 , _■ . m \ 




rv 








Expnmion 



« i ' ' n 



Declaration 



Value 
name 




o 



Typa-tpK 



Multiple Definition 



Declaration 




<E> 



_ .Wi^jpPp HWBWi^W 



Decl-Def Part 






















.r\ 








Declaration 


a. 


/ 


r 


' * 


J 




















Definition 








i 
















Multiple 
definition 
















"V 
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Array GwMrator 

Naw array 



to 


i 




Primary 










o 



Record Gamrator 

Nawracord 



c 



RECORD 



From 

•aJttfng 
racord 



Primary 



*Q 



♦WtACE 




One of Generator 



7S 



Merge Operator 



■c 



PLUS 



MM 



■c 



TIMtS ^ J- 



AND 






MAX 



< M<W > 



Multiplying Operator 




Adding Operator, Unary Operator 




Relational Operator 





+4> 




-+i < 




-H>* 




~H<* 



e 
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Error Mmm 







~< 



ovsr 



— <^^rr«jMW|few^p; 



^-■-'■iliifti^ 7 ^*!!" 



C 



UNKNOWN 



rrVnX IWIM 



•—#(^ CHARACTg* "jh 



-*C 



~""V 



r C 

— «*^ ARRAV-LjMtL '^j- 



INTEGER 






EXP 



mtJT ABB }— *> 

^ 



MtN 



} 



MOD 



— 



iriPf ARRAY-UMH 



■6 



■*■ 



-M ARRAY-ADJUST 



— *iQ 



T*"« 



AJWAY-A&BH V- 



ARRAY-RflHH/ 






PC ARRAY-ADDL 



< 



^^^1 ^•^^^•^^•■^O^^^RT W 



-c 



i /— * 



ARRAY-JOtN 



> 

< 



M ARRAY-FILL 



ARRAY-8ETL 
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Constant 



c 
c 
c 



NIL 



TRUE 



FALSE 



Integer 
number 



> 
> 
> 



Reel 
number 



\ I constant ^\ / 



f ' | fc Cherecter (< A 

\ y constant V / 



< 



•H ARRAY-EMPTY 






"< 



UNDEF 



MIS-ELT 



POS-OVER 



NEG-OVER 



-C 

-c 



ZERO-DIVIDE 



POS-UNDER 



> 
> 



NEG-UNDER 



>* 



—e»f UNKNOWN ) ' i>r [ V»» Type-spec -»/ J J 



Function name, formal parameter, type name, 
value name, field name, tag name: 

*» they are all simple identifiers 



